-- card: 5105 from stack: in
-- bmap block id: 5621
-- flags: 4000
-- background id: 2693
-- name: Network
----- HyperTalk script -----
on calculate

  get char 1 of card field "R1"
  if it="+" then
    delete char 1 of card field "R1"
  end if
  put card field "R1" into R1
  put abs(R1) into R1
  put R1 into card field "R1"

  get char 1 of card field "R2"
  if it="+" then
    delete char 1 of card field "R2"
  end if
  put card field "R2" into R2
  put abs(R2) into R2
  put R2 into card field "R2"

  get char 1 of card field "R3"
  if it="+" then
    delete char 1 of card field "R3"
  end if
  put card field "R3" into R3
  put abs(R3) into R3
  put R3 into card field "R3"

  get char 1 of card field "R4"
  if it="+" then
    delete char 1 of card field "R4"
  end if
  put card field "R4" into R4
  put abs(R4) into R4
  put R4 into card field "R4"

  get char 1 of card field "R5"
  if it="+" then
    delete char 1 of card field "R5"
  end if
  put card field "R5" into R5
  put abs(R5) into R5
  put R5 into card field "R5"

  if R1=0 and R2=0 and R3=0 and R4=0 then

    put 0 into RE

  else

    if R5=0 and R1=0 and R2=0 then
      put R3*R4/(R3+R4) into RE

    else

      if R5=0 and R3=0 and R4=0 then
        put R1*R2/(R1+R2) into RE

      else

        put (R2*R3*(R1+R4)+R1*R4*(R2+R3)+R5*(R1+R3)*(R2+R4))/ ((R1+R2)*(R3+R4)+R5*(R1+R2+R3+R4)) into RE

      end if
    end if
  end if

  set numberFormat to "0.000"

  put RE/1 into card field "Req"

end calculate

on closeField

  put "" into card field "Req"

end closeField



-- part 4 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=250 top=32 right=47 bottom=301
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: R3


-- part 6 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=134 top=32 right=47 bottom=185
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: R1


-- part 7 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=135 top=202 right=217 bottom=186
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: R2


-- part 8 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=250 top=202 right=217 bottom=301
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: R4


-- part 9 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=139 top=114 right=130 bottom=196
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: R5


-- part 10 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=202 top=266 right=281 bottom=253
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: Req


-- part 11 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=373 top=149 right=171 bottom=473
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Calculate
----- HyperTalk script -----
on mouseUp
  send calculate
end mouseUp



-- part 12 (field)
-- low flags: 01
-- high flags: 0007
-- rect: left=352 top=49 right=113 bottom=508
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 


-- part contents for background part 8
----- text -----
C5. Resistor Network

-- part contents for card part 6
----- text -----
10

-- part contents for card part 4
----- text -----
20

-- part contents for card part 7
----- text -----
20

-- part contents for card part 8
----- text -----
10

-- part contents for card part 9
----- text -----
10

-- part contents for card part 12
----- text -----
Find the equivalent resistance by apply-ing Kirchhoff's rules. That is, put a known emf across the term-inals and calculate the current through the emf using Kirchhoff's rules.  The emf divided by the current is the equivalent resis-tance.

-- part contents for card part 10
----- text -----
14.000